home *** CD-ROM | disk | FTP | other *** search
/ Macintosh Compilation 1 / Macintosh Compilation CD Number 1 (December 1995).iso / Utilities / CPU Doubler™ 1.0 / Cron Manager™ 1.0 / Sample CLImate Scripts / 17.00 Empty Trash < prev    next >
Encoding:
Text File  |  1994-03-03  |  995 b   |  32 lines
  1. 10 rem ** This script will empty your trash **
  2. 15 flags : rem override any user settings
  3. 20 stat -an > list$
  4. 25 repeat volumes
  5. 30    let EOL = match(list$,chr$(13))
  6. 35    if EOL = 0 then exit volumes
  7. 40    let disk$ = list$(1 to EOL-1)
  8. 45    let list$ = list$(EOL+1 to)
  9. 50    dir disk$ & "Trash" > files$
  10. 55    if files$ <> "" then
  11. 60       cd disk$ & "Trash:" : cd > path$
  12. 65       if disk$ & "Trash:" = path$ then gosub 100
  13. 70    end if
  14. 75 end repeat volumes
  15. 80 quit : rem always make sure to quit CLImate
  16. 90 stop
  17. 100 rem *** DepthFirst *** 
  18. 110 let dir$ = ""
  19. 120 repeat loop
  20. 130    dir > tmp$
  21. 140    let dir$ = tmp$ & dir$
  22. 150    let EOL = match(dir$,chr$(13))
  23. 160    if EOL = 0 then exit loop
  24. 170    let name$ = dir$(1 to EOL-1)
  25. 180    let dir$ = dir$(EOL+1 to)
  26. 190    if name$ = "::" then cd > path$ : cd name$ : delete path$ : goto 150
  27. 200    if name$(EOL-1) <> ":" then delete name$ : goto 150
  28. 210    let dir$ = "::" & chr$(13) & dir$
  29. 220    cd ":" & name$
  30. 230 end repeat loop
  31. 240 return
  32.